10 POKE53280,2:POKE53281,0:PRINT"[155]":Z=0
20 GOTO720
30 PRINT"[147]"
40 PRINT"";
50 PRINT"[169]               [223]"
60 PRINT"       [146][154]BANDITO[155]     "
70 PRINT"  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][155]"
80 PRINT"                   "
90 PRINT"    [146]     [146]     [146]     "
100 PRINT"    [146]     [146]     [146]     "
110 PRINT"    [146]     [146]     [146]     "
120 PRINT"                   "
130 PRINT"  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][155]"
140 PRINT"       [146]            "
150 PRINT"                   "
160 PRINT"                   "
170 PRINT"[145][145][145][185][185][181][157][145][181][157][145][181][157][145][181][157][145][181][157][145][185][185][155]"
180 PRINT"";
190 PRINT:PRINT"[158]SPENT"TAB(17)"WON"TAB(26)"BALANCE"
200 PRINT:PRINT"                                     "
210 FORI=1TO700:NEXTI:IFZ=0THENGOSUB920:Z=1
220 A=TI/60
230 X=INT(RND(TI)*5+1)
240 ON X GOTO 290,260,270,250,280
250 A$="[193]":GOTO300
260 A$="[211]":GOTO300
270 A$="[218]":GOTO300
280 A$="[154][216]":GOTO300
290 A$="[158][209]"
300 PRINT"";A$
310 Y=INT(RND(TI)*5+1)
320 ON Y GOTO 360,350,340,370,330
330 B$="[193]":GOTO380
340 B$="[211]":GOTO380
350 B$="[218]":GOTO380
360 B$="[154][216]":GOTO380
370 B$="[158][209]"
380 PRINT"";B$
390 Z=INT(RND(TI)*5+1)
400 ON Z GOTO 410,450,420,440,430
410 C$="[193]":GOTO460
420 C$="[211]":GOTO460
430 C$="[218]":GOTO460
440 C$="[154][216]":GOTO460
450 C$="[158][209]"
460 PRINT"";C$
470 B=TI/60:C=B-A
480 IFC<2THEN230
490 IFC<4THEN310
500 IFC<6THEN390
510 IFA$=B$ANDB$=C$THENGOTO530
520 GOTO610
530 PRINT"JACKPOT[146]"
540 FORX=1TO10
550 FORI=1TO200:NEXT
560 PRINT"[145]       "
570 FORI=1TO200:NEXT
580 PRINT"[145]JACKPOT[146]"
590 NEXTX
600 S=S+.5:W=W+S:B1=W-S:GOTO640
610 IFA$=B$ORB$=C$ORA$=C$THENPRINT"[153]DOUBLES[146]":GOTO630
620 PRINT"[154] SORRY ":S=S+.5:W=W:B1=W-S:GOTO640
630 S=S+.5:W=W+1:B1=W-S
640 PRINT"[158]SPENT"TAB(17)"WON"TAB(26)"BALANCE"
650 FORI=1TO550:NEXT
660 PRINT"[153]";
670 PRINTTAB(6)"$"S TAB(16)"$"W TAB(28)"[150]$"B1:PRINT"[155]"
680 GETY$
690 IFY$="[133]"THENGOSUB920:GOTO40
700 IFY$="[134]"THENPRINT"[145][145][145][145][145][145][156] FINAL STANDING [146][154]":GOTO63000
710 GOTO680
720 PRINT"[147]":PRINT"   THIS PROGRAM IS A SLOT-MACHINE":PRINT
730 PRINT"SIMULATION. THE ONE-ARMED BANDIT":PRINT
740 PRINT"ACCEPTS ONLY HALF-DOLLARS. YOU WILL":PRINT
750 PRINT"BE ASKED TO INSERT YOUR COIN BY":PRINT
760 PRINT"TYPING F1. SIMPLY TYPE F1":PRINT
770 PRINT"AFTER EACH TURN TO CONTINUE THE":PRINT
780 PRINT"THE GAME. THE COMPUTER WILL KEEP A":PRINT
790 PRINT"RECORD OF YOUR LOSSES AND WINNINGS.":PRINT
800 PRINT"IF DOUBLES APPEAR YOU WIN":PRINT
810 PRINT"$1.00. IF A JACKPOT APPEARS YOU WIN":PRINT
820 PRINT"THE AMOUNT YOU HAVE SPENT. PLEASE":PRINT
830 PRINT"TYPE C TO CONTINUE DIRECTIONS."
840 GETQ$:IFQ$<>"C"THEN840
850 PRINT"[147]":PRINT"   THE PROGRAM RUNS CONTINOUSLY":PRINT
860 PRINT"UPON THE INSERTION OF YOUR COIN.":PRINT
870 PRINT"THEREFORE,TO END THE GAME JUST":PRINT
880 PRINT"PRESS THE F3 KEY. PLEASE INSERT":PRINT
890 PRINT"YOUR COIN TO BEGIN."
900 GETY$:IFY$<>"[133]"THEN900
910 GOTO30
920 FORI=0TO160STEP40
930 POKE1245+I,121:POKE1246+I,121:POKE55517+I,0:POKE55518+I,0
940 POKE1285+I,121:POKE1286+I,121:POKE55557+I,1:POKE55558+I,1
950 NEXTI
960 FORI=160TO0STEP-40
970 POKE1245+I,121:POKE1246+I,121:POKE55517+I,1:POKE55518+I,1
980 POKE1285+I,121:POKE1286+I,121:POKE55557+I,0:POKE55558+I,0
990 POKE1285+I,117:POKE55557+I,1
1000 NEXTI: RETURN
63000 REM    CONNECT BACK TO L.S.
63001 FORDL=1TO2000:NEXTDL
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END